home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / os2 / lopbk505.zip / LOOPUTIL.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-03-25  |  16KB  |  656 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     PrintLn 
  28.     PrintLn "@X0FLoopUtil Initializing..."
  29.     BOOLEAN001 = 0
  30.     STRING002 = ""
  31.     STRING003 = 0
  32.     Print "@POFF@"
  33.     RdUNet PcbNode()
  34.     WrUNet PcbNode(), UN_Stat(), UN_Name(), "LoopBack maintenance...", "LoopUtil Main Menu", ""
  35.     GetToken STRING003
  36.     STRING003 = Strip(Upper(STRING003), " ")
  37.     If (STRING003 <> "") Then
  38.         STRING002 = STRING003
  39.         BOOLEAN002 = 1
  40.     Endif
  41.     :LABEL001
  42.     If (BOOLEAN001) Goto LABEL046
  43.     If (BOOLEAN002) Goto LABEL002
  44.     KbdChkOn
  45.     Cls
  46.     PrintLn "                   @X40┌────────────────────────────────────────@X4C┐@X07"
  47.     PrintLn "                   @X40│             @X4FLoopUtil v5.05             @X4C│@X07"
  48.     PrintLn "                   @X40│ @X4A(@X4BMaintenance Utility / LoopBack v5.05@X4A) @X4C│@X07"
  49.     PrintLn "                   @X40│       @X4ECopyright (c)1996 by PCS         @X4C│@X07"
  50.     PrintLn "                   @X40└@X4C────────────────────────────────────────┘@X07"
  51.     PrintLn 
  52.     PrintLn "@X0F@BOARDNAME:80C@"
  53.     PrintLn "         @X10┌──────────────────────────────────────────────────────────────@X19┐@X07"
  54.     PrintLn "         @X10│          @X1F(@X1CC@X1F)@X1Eonfiguration file maintenance                    @X19│@X07"
  55.     PrintLn "         @X10│          @X1F(@X1CS@X1F)@X1Etatistics file maintenance                       @X19│@X07"
  56.     PrintLn "         @X10│          @X1F(@X1CP@X1F)@X1Erompt file maintenance                           @X19│@X07"
  57.     PrintLn "         @X10│          @X1F(@X1CN@X1F)@X1Eumber trash can file maintenance (Used #'s)      @X19│@X07"
  58.     PrintLn "         @X10│          @X1F(@X1CT@X1F)@X1Eimetable file maintenance                        @X19│@X07"
  59.     PrintLn "         @X10│          @X1F(@X1CB@X1F)@X1Ead number file maintenance                       @X19│@X07"
  60.     PrintLn "         @X10│          @X1ESecurity & name trash @X1F(@X1CF@X1F)@X1Eile maintenance            @X19│@X07"
  61.     PrintLn "         @X10│          @X1F(@X1CA@X1F)@X1Ellowed number calling file maintenance           @X19│@X07"
  62.     PrintLn "         @X10│          @X1F(@X1CR@X1F)@X1Eeturn to main                                    @X19│@X07"
  63.     PrintLn "         @X10└@X19──────────────────────────────────────────────────────────────┘@X07"
  64.     PrintLn 
  65.     STRING002 = ""
  66.     InputStr "          (H)elp, Enter command", STRING002, 14, 1, "BbCcTtRrPpSsQqAaNnFfHh", 2 + 4
  67.     Goto LABEL003
  68.     :LABEL002
  69.     BOOLEAN002 = 0
  70.     :LABEL003
  71.     STRING002 = Upper(STRING002)
  72.     Select Case (STRING002)
  73.         Case "R", "Q"
  74.             BOOLEAN001 = 1
  75.             Goto LABEL047
  76.         Case "H"
  77.             Print "@PON@"
  78.             DispFile PPEPath() + "LBKUHLP", 1 + 4
  79.             Print "@POFF@"
  80.             BOOLEAN001 = 0
  81.         Case "C"
  82.             If (Exist(PPEPath() + "LBKMOD4.PPE")) Goto LABEL004
  83.             PrintLn 
  84.             PrintLn "@X0C" + PPEPath() + "LBKMOD4.PPE does not exist!"
  85.             Log PPEPath() + "LBKMOD4.PPE does not exist!", 0
  86.             PrintLn 
  87.             PrintLn "@X0ACould not edit configuration file..."
  88.             Goto LABEL005
  89.             :LABEL004
  90.             PrintLn 
  91.             PrintLn "@X0ALoading configuration maintenance module..."
  92.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "MODULE 4 - Config File", ""
  93.             Call PPEPath() + "LBKMOD4.PPE"
  94.             :LABEL005
  95.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "LoopUtil Main Menu", ""
  96.             BOOLEAN001 = 0
  97.         Case "N"
  98.             BOOLEAN001 = 0
  99.             STRING001 = "E"
  100.             PrintLn 
  101.             PrintLn 
  102.             PrintLn "          @X0AE@X0C(@X0FX@X0C)@X0Aport Used # Trash File"
  103.             PrintLn "          @X0AI@X0C(@X0FM@X0C)@X0Aport text file"
  104.             PrintLn "          @X0C(@X0FI@X0C)@X0Andex Used # Trash File"
  105.             PrintLn "          @X0C(@X0FB@X0C)@X0Auild Used # Trash File"
  106.             PrintLn "          @X0C(@X0FP@X0C)@X0Aack Used # Trash File"
  107.             PrintLn "          @X0C(@X0FE@X0C)@X0Adit Used # Trash File"
  108.             PrintLn 
  109.             InputStr "Enter command", STRING001, 11, 1, "PpEeBbIiMmXx", 2 + 4
  110.             STRING001 = Upper(STRING001)
  111.             Select Case (STRING001)
  112.                 Case "P"
  113.                     If (Exist(PPEPath() + "LBKMOD2.PPE")) Then
  114.                         PrintLn 
  115.                         PrintLn "@X0AInitializing already used # trash can editing/packing module..."
  116.                         PrintLn 
  117.                         WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Packing trash file...", ""
  118.                         Tokenize "1"
  119.                         Call PPEPath() + "LBKMOD2.PPE"
  120.                     Else
  121.                         PrintLn 
  122.                         PrintLn "@X0C" + PPEPath() + "LBKMOD2.PPE does not exist!"
  123.                         Log PPEPath() + "LBKMOD2.PPE does not exist!", 0
  124.                         PrintLn 
  125.                         PrintLn "@X0ACould not pack trash can file..."
  126.                     Endif
  127.                 Case "M"
  128.                     STRING002 = ""
  129.                     PrintLn 
  130.                     PrintLn 
  131.                     PrintLn "          @X0AImport @X0C(@X0FC@X0C)@X0ASVerify verified log file"
  132.                     PrintLn "          Import PCB@X0C(@X0FV@X0C)@X0Aerify/""The Verify Door""/LoopBack verified logs"
  133.                     PrintLn "          Import @X0C(@X0FA@X0C)@X0Ascii CR/LF delimitted text file"
  134.                     InputStr "Type of file to import", STRING002, 11, 1, "CcVvAa", 2 + 4 + 256 + 8 + 128
  135.                     If (Exist(PPEPath() + "LBKMOD2.PPE")) Then
  136.                         PrintLn 
  137.                         PrintLn "@X0AInitializing trash can importation module..."
  138.                         PrintLn 
  139.                         WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Importing trash file...", ""
  140.                         Tokenize "6;" + STRING002
  141.                         Call PPEPath() + "LBKMOD2.PPE"
  142.                     Else
  143.                         PrintLn 
  144.                         PrintLn "@X0C" + PPEPath() + "LBKMOD2.PPE does not exist!"
  145.                         Log PPEPath() + "LBKMOD2.PPE does not exist!", 0
  146.                         PrintLn 
  147.                         PrintLn "@X0ACould not import trash can file..."
  148.                     Endif
  149.                 Case "X"
  150.                     If (Exist(PPEPath() + "LBKMOD2.PPE")) Then
  151.                         PrintLn 
  152.                         PrintLn "@X0AInitializing trash can exportation module..."
  153.                         PrintLn 
  154.                         WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Exporting trash file...", ""
  155.                         Tokenize "7"
  156.                         Call PPEPath() + "LBKMOD2.PPE"
  157.                     Else
  158.                         PrintLn 
  159.                         PrintLn "@X0C" + PPEPath() + "LBKMOD2.PPE does not exist!"
  160.                         Log PPEPath() + "LBKMOD2.PPE does not exist!", 0
  161.                         PrintLn 
  162.                         PrintLn "@X0ACould not export trash can file..."
  163.                     Endif
  164.                 Case "I"
  165.                     If (Exist(PPEPath() + "LBKMOD2.PPE")) Then
  166.                         PrintLn 
  167.                         PrintLn "@X0AInitializing trash can indexing module..."
  168.                         PrintLn 
  169.                         WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Indexing trash file...", ""
  170.                         Tokenize "5"
  171.                         Call PPEPath() + "LBKMOD2.PPE"
  172.                     Else
  173.                         PrintLn 
  174.                         PrintLn "@X0C" + PPEPath() + "LBKMOD2.PPE does not exist!"
  175.                         Log PPEPath() + "LBKMOD2.PPE does not exist!", 0
  176.                         PrintLn 
  177.                         PrintLn "@X0ACould not index trash can file..."
  178.                     Endif
  179.                 Case "B"
  180.                     PrintLn 
  181.                     PrintLn 
  182.                     STRING001 = "A"
  183.                     PrintLn "@X0AEach user's record will be searched and the already used number trash file"
  184.                     PrintLn "will be rebuilt to your specifications."
  185.                     PrintLn 
  186.                     PrintLn "          @X0C(@X0FB@X0C)@X0Auild new trash file and discard the old one"
  187.                     PrintLn "          @X0C(@X0FA@X0C)@X0Add the new records to an existing trash file"
  188.                     PrintLn "          @X0C(@X0FQ@X0C)@X0Auit back to LoopUtil main."
  189.                     PrintLn 
  190.                     InputStr "Build trash file command", STRING001, 11, 1, "BbAaQq", 2 + 4
  191.                     Newline
  192.                     STRING001 = Upper(STRING001)
  193.                     If (STRING001 <> "Q") Then
  194.                         If (Exist(PPEPath() + "LBKMOD2.PPE")) Then
  195.                             PrintLn 
  196.                             PrintLn "@X0AInitializing trash can editing/packing module (BUILD MODE)..."
  197.                             PrintLn 
  198.                             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Building trash file...", ""
  199.                             Tokenize "3 " + STRING001
  200.                             Call PPEPath() + "LBKMOD2.PPE"
  201.                             Goto LABEL006
  202.                         Endif
  203.                         PrintLn 
  204.                         PrintLn "@X0C" + PPEPath() + "LBKMOD2.PPE does not exist!"
  205.                         Log PPEPath() + "LBKMOD2.PPE does not exist!", 0
  206.                         PrintLn 
  207.                         PrintLn "@X0ACould not build trash can file..."
  208.                     Endif
  209.                     :LABEL006
  210.                     STRING001 = "B"
  211.                 Case "E"
  212.                     If (Exist(PPEPath() + "LBKMOD2.PPE")) Then
  213.                         PrintLn 
  214.                         PrintLn "@X0AInitializing trash can editing/packing module..."
  215.                         PrintLn 
  216.                         WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing trash file...", ""
  217.                         Tokenize "2"
  218.                         Call PPEPath() + "LBKMOD2.PPE"
  219.                         Goto LABEL007
  220.                     Endif
  221.                     PrintLn 
  222.                     PrintLn "@X0C" + PPEPath() + "LBKMOD2.PPE does not exist!"
  223.                     Log PPEPath() + "LBKMOD2.PPE does not exist!", 0
  224.                     PrintLn 
  225.                     PrintLn "@X0ACould not edit trash can file..."
  226.             End Select
  227.             :LABEL007
  228.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "LoopUtil Main Menu", ""
  229.         Case "P"
  230.             STRING001 = PPEPath() + "LBKBTXT."
  231.             PrintLn 
  232.             InputStr "LoopBack prompt path & filename", STRING001, 11, 42, Mask_File(), 2 + 4
  233.             If (Exist(PPEPath() + "LBKMOD1.PPE")) Goto LABEL008
  234.             PrintLn 
  235.             PrintLn "@X0C" + PPEPath() + "LBKMOD1.PPE does not exist!"
  236.             Log PPEPath() + "LBKMOD1.PPE does not exist!", 0
  237.             PrintLn 
  238.             PrintLn "@X0ACould not edit prompt files..."
  239.             Goto LABEL009
  240.             :LABEL008
  241.             PrintLn 
  242.             PrintLn "@X0ALoading prompt maintenance module..."
  243.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing prompts...", ""
  244.             Tokenize Trim(STRING001, " ")
  245.             Call PPEPath() + "LBKMOD1.PPE"
  246.             :LABEL009
  247.             BOOLEAN001 = 0
  248.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "LoopUtil Main Menu", ""
  249.         Case "S"
  250.             If (Exist(PPEPath() + "LBKMOD3.PPE")) Goto LABEL010
  251.             PrintLn 
  252.             PrintLn "@X0C" + PPEPath() + "LBKMOD3.PPE does not exist!"
  253.             Log PPEPath() + "LBKMOD3.PPE does not exist!", 0
  254.             PrintLn 
  255.             PrintLn "@X0ACould not edit stats file..."
  256.             Goto LABEL011
  257.             :LABEL010
  258.             PrintLn 
  259.             PrintLn "@X0ALoading statistics maintenance module..."
  260.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing Stats...", ""
  261.             Call PPEPath() + "LBKMOD3.PPE"
  262.             :LABEL011
  263.             BOOLEAN001 = 0
  264.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "LoopUtil Main Menu", ""
  265.         Case "T"
  266.             PrintLn 
  267.             PrintLn 
  268.             PrintLn "          @X0C(@X0FP@X0C)@X0Aack Timetables"
  269.             PrintLn "          @X0C(@X0FE@X0C)@X0Adit Timetables"
  270.             PrintLn 
  271.             STRING001 = "E"
  272.             InputStr "Enter command", STRING001, 11, 1, "PpEe", 2 + 4
  273.             STRING001 = Upper(STRING001)
  274.             If (STRING001 == "P") Then
  275.                 If (Exist(PPEPath() + "LBKMOD5.PPE")) Goto LABEL012
  276.                 PrintLn 
  277.                 PrintLn "@X0C" + PPEPath() + "LBKMOD5.PPE does not exist!"
  278.                 Log PPEPath() + "LBKMOD5.PPE does not exist!", 0
  279.                 PrintLn 
  280.                 PrintLn "@X0ACould not pack timetables..."
  281.                 Goto LABEL013
  282.                 :LABEL012
  283.                 PrintLn 
  284.                 PrintLn "@X0ALoading timetable maintenance module..."
  285.                 WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Packing Timetables...", ""
  286.                 Tokenize "1"
  287.                 Call PPEPath() + "LBKMOD5.PPE"
  288.                 :LABEL013
  289.             Else
  290.                 If (Exist(PPEPath() + "LBKMOD5.PPE")) Goto LABEL014
  291.                 PrintLn 
  292.                 PrintLn "@X0C" + PPEPath() + "LBKMOD5.PPE does not exist!"
  293.                 Log PPEPath() + "LBKMOD5.PPE does not exist!", 0
  294.                 PrintLn 
  295.                 PrintLn "@X0ACould not edit timetables..."
  296.                 Goto LABEL015
  297.                 :LABEL014
  298.                 PrintLn 
  299.                 PrintLn "@X0ALoading timetable maintenance module..."
  300.                 WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing Timetables...", ""
  301.                 Tokenize "2"
  302.                 Call PPEPath() + "LBKMOD5.PPE"
  303.             Endif
  304.             :LABEL015
  305.             BOOLEAN001 = 0
  306.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "LoopUtil Main Menu", ""
  307.         Case "B"
  308.             PrintLn 
  309.             PrintLn 
  310.             PrintLn "          @X0AE@X0C(@X0FX@X0C)@X0Aport Bad Number File"
  311.             PrintLn "          @X0C(@X0FI@X0C)@X0Amport text file"
  312.             PrintLn "          @X0C(@X0FP@X0C)@X0Aack Bad Number File"
  313.             PrintLn "          @X0C(@X0FE@X0C)@X0Adit Bad Number File"
  314.             PrintLn 
  315.             STRING001 = "E"
  316.             InputStr "Enter command", STRING001, 11, 1, "PpEeIiXx", 2 + 4
  317.             STRING001 = Upper(STRING001)
  318.             Select Case (STRING001)
  319.                 Case "P"
  320.                     If (Exist(PPEPath() + "LBKMOD7.PPE")) Goto LABEL016
  321.                     PrintLn 
  322.                     PrintLn "@X0C" + PPEPath() + "LBKMOD7.PPE does not exist!"
  323.                     Log PPEPath() + "LBKMOD7.PPE does not exist!", 0
  324.                     PrintLn 
  325.                     PrintLn "@X0ACould not pack bad number file..."
  326.                     Goto LABEL017
  327.                     :LABEL016
  328.                     PrintLn 
  329.                     PrintLn "@X0ALoading bad number file maintenance module..."
  330.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Packing Bad Number File", ""
  331.                     Tokenize "1"
  332.                     Call PPEPath() + "LBKMOD7.PPE"
  333.                     :LABEL017
  334.                 Case "I"
  335.                     If (Exist(PPEPath() + "LBKMOD7.PPE")) Goto LABEL018
  336.                     PrintLn 
  337.                     PrintLn "@X0C" + PPEPath() + "LBKMOD7.PPE does not exist!"
  338.                     Log PPEPath() + "LBKMOD7.PPE does not exist!", 0
  339.                     PrintLn 
  340.                     PrintLn "@X0ACould not import text into bad number file..."
  341.                     Goto LABEL019
  342.                     :LABEL018
  343.                     PrintLn 
  344.                     PrintLn "@X0ALoading bad number file importation module..."
  345.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Importing Bad Number File", ""
  346.                     Tokenize "3"
  347.                     Call PPEPath() + "LBKMOD7.PPE"
  348.                     :LABEL019
  349.                 Case "X"
  350.                     If (Exist(PPEPath() + "LBKMOD7.PPE")) Goto LABEL020
  351.                     PrintLn 
  352.                     PrintLn "@X0C" + PPEPath() + "LBKMOD7.PPE does not exist!"
  353.                     Log PPEPath() + "LBKMOD7.PPE does not exist!", 0
  354.                     PrintLn 
  355.                     PrintLn "@X0ACould not export text into bad number file..."
  356.                     Goto LABEL021
  357.                     :LABEL020
  358.                     PrintLn 
  359.                     PrintLn "@X0ALoading bad number file exportation module..."
  360.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Exporting Bad Number File", ""
  361.                     Tokenize "4"
  362.                     Call PPEPath() + "LBKMOD7.PPE"
  363.                     :LABEL021
  364.                 Case "E"
  365.                     If (Exist(PPEPath() + "LBKMOD7.PPE")) Goto LABEL022
  366.                     PrintLn 
  367.                     PrintLn "@X0C" + PPEPath() + "LBKMOD7.PPE does not exist!"
  368.                     Log PPEPath() + "LBKMOD7.PPE does not exist!", 0
  369.                     PrintLn 
  370.                     PrintLn "@X0ACould not edit bad number file..."
  371.                     Goto LABEL023
  372.                     :LABEL022
  373.                     PrintLn 
  374.                     PrintLn "@X0ALoading bad number file maintenance module..."
  375.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing Bad Number File...", ""
  376.                     Tokenize "2"
  377.                     Call PPEPath() + "LBKMOD7.PPE"
  378.             End Select
  379.             :LABEL023
  380.             BOOLEAN001 = 0
  381.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "LoopUtil Main Menu", ""
  382.         Case "A"
  383.             PrintLn 
  384.             PrintLn 
  385.             PrintLn "          @X0C(@X0FI@X0C)@X0Amport Text File"
  386.             PrintLn "          @X0AE@X0C(@X0FX@X0C)@X0Aport Text File"
  387.             PrintLn "          @X0AEdit @X0C(@X0FD@X0C)@X0Aialing Templates"
  388.             PrintLn "          @X0APack Dialing @X0C(@X0FT@X0C)@X0Aemplates"
  389.             PrintLn "          @X0AI@X0C(@X0FN@X0C)@X0Adex Allowed # Calling File"
  390.             PrintLn "          @X0C(@X0FP@X0C)@X0Aack Allowed # Calling file"
  391.             PrintLn "          @X0C(@X0FE@X0C)@X0Adit Allowed # Calling file"
  392.             PrintLn 
  393.             STRING001 = "E"
  394.             InputStr "Enter command", STRING001, 11, 1, "PpEeIiDdTtXxNn", 2 + 4
  395.             STRING001 = Upper(STRING001)
  396.             Select Case (STRING001)
  397.                 Case "P"
  398.                     If (Exist(PPEPath() + "LBKMOD8.PPE")) Goto LABEL024
  399.                     PrintLn 
  400.                     PrintLn "@X0C" + PPEPath() + "LBKMOD8.PPE does not exist!"
  401.                     Log PPEPath() + "LBKMOD8.PPE does not exist!", 0
  402.                     PrintLn 
  403.                     PrintLn "@X0ACould not pack allowed # calling file..."
  404.                     Goto LABEL025
  405.                     :LABEL024
  406.                     PrintLn 
  407.                     PrintLn "@X0ALoading allowed calling # maintenance module..."
  408.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Packing Allowed # Calling File...", ""
  409.                     Tokenize "1"
  410.                     Call PPEPath() + "LBKMOD8.PPE"
  411.                     :LABEL025
  412.                 Case "N"
  413.                     If (Exist(PPEPath() + "LBKMOD8.PPE")) Goto LABEL026
  414.                     PrintLn 
  415.                     PrintLn "@X0C" + PPEPath() + "LBKMOD8.PPE does not exist!"
  416.                     Log PPEPath() + "LBKMOD8.PPE does not exist!", 0
  417.                     PrintLn 
  418.                     PrintLn "@X0ACould not index allowed # calling file..."
  419.                     Goto LABEL027
  420.                     :LABEL026
  421.                     PrintLn 
  422.                     PrintLn "@X0ALoading allowed # calling indexing module..."
  423.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Indexing Allowed Calling File", ""
  424.                     Tokenize "5"
  425.                     Call PPEPath() + "LBKMOD8.PPE"
  426.                     :LABEL027
  427.                 Case "T"
  428.                     If (Exist(PPEPath() + "LBKMOD8.PPE")) Goto LABEL028
  429.                     PrintLn 
  430.                     PrintLn "@X0C" + PPEPath() + "LBKMOD8.PPE does not exist!"
  431.                     Log PPEPath() + "LBKMOD8.PPE does not exist!", 0
  432.                     PrintLn 
  433.                     PrintLn "@X0ACould not pack dialing templates..."
  434.                     Goto LABEL029
  435.                     :LABEL028
  436.                     PrintLn 
  437.                     PrintLn "@X0ALoading dialing templates packing module..."
  438.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Packing dialing templates", ""
  439.                     Tokenize "6"
  440.                     Call PPEPath() + "LBKMOD8.PPE"
  441.                     :LABEL029
  442.                 Case "D"
  443.                     If (Exist(PPEPath() + "LBKMOD8.PPE")) Goto LABEL030
  444.                     PrintLn 
  445.                     PrintLn "@X0C" + PPEPath() + "LBKMOD8.PPE does not exist!"
  446.                     Log PPEPath() + "LBKMOD8.PPE does not exist!", 0
  447.                     PrintLn 
  448.                     PrintLn "@X0ACould not maintain dialing templates..."
  449.                     Goto LABEL031
  450.                     :LABEL030
  451.                     PrintLn 
  452.                     PrintLn "@X0ALoading dialing templates maintenance module..."
  453.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Maintaining Dialing Templates", ""
  454.                     Tokenize "7"
  455.                     Call PPEPath() + "LBKMOD8.PPE"
  456.                     :LABEL031
  457.                 Case "I"
  458.                     If (Exist(PPEPath() + "LBKMOD8.PPE")) Goto LABEL032
  459.                     PrintLn 
  460.                     PrintLn "@X0C" + PPEPath() + "LBKMOD8.PPE does not exist!"
  461.                     Log PPEPath() + "LBKMOD8.PPE does not exist!", 0
  462.                     PrintLn 
  463.                     PrintLn "@X0ACould not import text file..."
  464.                     Goto LABEL033
  465.                     :LABEL032
  466.                     PrintLn 
  467.                     PrintLn "@X0ALoading allowed # calling text importation module..."
  468.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Importing Allowed # Calling File...", ""
  469.                     Tokenize "3"
  470.                     Call PPEPath() + "LBKMOD8.PPE"
  471.                     :LABEL033
  472.                 Case "X"
  473.                     If (Exist(PPEPath() + "LBKMOD8.PPE")) Goto LABEL034
  474.                     PrintLn 
  475.                     PrintLn "@X0C" + PPEPath() + "LBKMOD8.PPE does not exist!"
  476.                     Log PPEPath() + "LBKMOD8.PPE does not exist!", 0
  477.                     PrintLn 
  478.                     PrintLn "@X0ACould not export allowed # calling file..."
  479.                     Goto LABEL035
  480.                     :LABEL034
  481.                     PrintLn 
  482.                     PrintLn "@X0ALoading allowed # calling exportation module..."
  483.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Exporting Allowed Calling File...", ""
  484.                     Tokenize "4"
  485.                     Call PPEPath() + "LBKMOD8.PPE"
  486.                     :LABEL035
  487.                 Case "E"
  488.                     If (Exist(PPEPath() + "LBKMOD8.PPE")) Goto LABEL036
  489.                     PrintLn 
  490.                     PrintLn "@X0C" + PPEPath() + "LBKMOD8.PPE does not exist!"
  491.                     Log PPEPath() + "LBKMOD8.PPE does not exist!", 0
  492.                     PrintLn 
  493.                     PrintLn "@X0ACould not edit allowed # calling file..."
  494.                     Goto LABEL037
  495.                     :LABEL036
  496.                     PrintLn 
  497.                     PrintLn "@X0ALoading allowed # maintenance module..."
  498.                     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing Allowed # Calling File...", ""
  499.                     Tokenize "2"
  500.                     Call PPEPath() + "LBKMOD8.PPE"
  501.             End Select
  502.             :LABEL037
  503.             BOOLEAN001 = 0
  504.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "LoopUtil Main Menu", ""
  505.         Case "F"
  506.             PrintLn 
  507.             PrintLn 
  508.             PrintLn "          @X0AE@X0C(@X0FX@X0C)@X0Aport Username & Security Trashfiles"
  509.             PrintLn "          @X0C(@X0FI@X0C)@X0Amport text file"
  510.             PrintLn "          @X0C(@X0FP@X0C)@X0Aack Username & Security Trashfiles"
  511.             PrintLn "          @X0C(@X0FE@X0C)@X0Adit Username & Security Trashfiles"
  512.             PrintLn 
  513.             STRING001 = "E"
  514.             InputStr "Enter command", STRING001, 11, 1, "PpEeIiXx", 2 + 4
  515.             STRING001 = Upper(STRING001)
  516.             If (STRING001 == "P") Then
  517.                 If (Exist(PPEPath() + "LBKMOD6.PPE")) Goto LABEL038
  518.                 PrintLn 
  519.                 PrintLn "@X0C" + PPEPath() + "LBKMOD6.PPE does not exist!"
  520.                 Log PPEPath() + "LBKMOD6.PPE does not exist!", 0
  521.                 PrintLn 
  522.                 PrintLn "@X0ACould not pack trashfiles..."
  523.                 Goto LABEL039
  524.                 :LABEL038
  525.                 PrintLn 
  526.                 PrintLn "@X0ALoading name & security trashfiles maintenance module..."
  527.                 WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Packing Trashfiles...", ""
  528.                 Tokenize "1"
  529.                 Call PPEPath() + "LBKMOD6.PPE"
  530.                 :LABEL039
  531.                 Goto LABEL045
  532.             Endif
  533.             If (STRING001 == "I") Then
  534.                 If (Exist(PPEPath() + "LBKMOD6.PPE")) Goto LABEL040
  535.                 PrintLn 
  536.                 PrintLn "@X0C" + PPEPath() + "LBKMOD6.PPE does not exist!"
  537.                 Log PPEPath() + "LBKMOD6.PPE does not exist!", 0
  538.                 PrintLn 
  539.                 PrintLn "@X0ACould not import text into trashfiles..."
  540.                 Goto LABEL041
  541.                 :LABEL040
  542.                 PrintLn 
  543.                 PrintLn "@X0ALoading name & security trashfiles importation module..."
  544.                 WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Importing Trashfiles...", ""
  545.                 Tokenize "3"
  546.                 Call PPEPath() + "LBKMOD6.PPE"
  547.                 :LABEL041
  548.                 Goto LABEL045
  549.             Endif
  550.             If (STRING001 == "X") Then
  551.                 If (Exist(PPEPath() + "LBKMOD6.PPE")) Goto LABEL042
  552.                 PrintLn 
  553.                 PrintLn "@X0C" + PPEPath() + "LBKMOD6.PPE does not exist!"
  554.                 Log PPEPath() + "LBKMOD6.PPE does not exist!", 0
  555.                 PrintLn 
  556.                 PrintLn "@X0ACould not export trashfiles..."
  557.                 Goto LABEL043
  558.                 :LABEL042
  559.                 PrintLn 
  560.                 PrintLn "@X0ALoading name & security trashfiles exportation module..."
  561.                 WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Exporting Trashfiles...", ""
  562.                 Tokenize "4"
  563.                 Call PPEPath() + "LBKMOD6.PPE"
  564.                 :LABEL043
  565.                 Goto LABEL045
  566.             Endif
  567.             If (STRING001 == "E") Then
  568.                 If (Exist(PPEPath() + "LBKMOD6.PPE")) Goto LABEL044
  569.                 PrintLn 
  570.                 PrintLn "@X0C" + PPEPath() + "LBKMOD6.PPE does not exist!"
  571.                 Log PPEPath() + "LBKMOD6.PPE does not exist!", 0
  572.                 PrintLn 
  573.                 PrintLn "@X0ACould not edit trashfiles..."
  574.                 Goto LABEL045
  575.                 :LABEL044
  576.                 PrintLn 
  577.                 PrintLn "@X0ALoading name & security trashfiles maintenance module..."
  578.                 WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Editing Trashfiles...", ""
  579.                 Tokenize "2"
  580.                 Call PPEPath() + "LBKMOD6.PPE"
  581.             Endif
  582.             :LABEL045
  583.             BOOLEAN001 = 0
  584.             WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "LoopUtil Main Menu", ""
  585.     End Select
  586.     Goto LABEL001
  587.     :LABEL046
  588.     :LABEL047
  589.     Print "@PON@"
  590.     End
  591.  
  592. ;------------------------------------------------------------------------------
  593. ;
  594. ; Usage report (before postprocessing)
  595. ;
  596. ; ■ Statements used :
  597. ;
  598. ;    1       End
  599. ;    1       Cls
  600. ;    119     Goto 
  601. ;    34      Let 
  602. ;    4       Print 
  603. ;    236     PrintLn 
  604. ;    62      If 
  605. ;    1       DispFile 
  606. ;    26      Log 
  607. ;    9       InputStr 
  608. ;    1       Newline
  609. ;    24      Tokenize 
  610. ;    1       GetToken 
  611. ;    26      Call 
  612. ;    1       KbdChkOn
  613. ;    1       RdUNet 
  614. ;    35      WrUNet 
  615. ;
  616. ;
  617. ; ■ Functions used :
  618. ;
  619. ;    147     +
  620. ;    33      ==
  621. ;    2       <>
  622. ;    62      !
  623. ;    1       ||
  624. ;    8       Upper()
  625. ;    1       Trim()
  626. ;    1       Strip()
  627. ;    1       Mask_File()
  628. ;    106     PPEPath()
  629. ;    36      PcbNode()
  630. ;    35      UN_Stat()
  631. ;    35      UN_Name()
  632. ;    34      UN_City()
  633. ;    26      Exist()
  634. ;
  635. ;------------------------------------------------------------------------------
  636. ;
  637. ; Analysis flags : C
  638. ;
  639. ; C - Call child PPE ■ 3
  640. ;     This is usually normal, but may be a tricky way to launch some
  641. ;     sysop-only commands.
  642. ;     ■ Search for : CALL
  643. ;
  644. ;------------------------------------------------------------------------------
  645. ;
  646. ; Postprocessing report
  647. ;
  648. ;    0       For/Next
  649. ;    0       While/EndWhile
  650. ;    13      If/Then or If/Then/Else
  651. ;    4       Select Case
  652. ;
  653. ;------------------------------------------------------------------------------
  654. ;                 AEGiS Corp - Break the routines, code against the machines!
  655. ;------------------------------------------------------------------------------
  656.